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A eat BLOCKS THROUGH FILE WINDOW 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
& 
* 
® 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
CORPORATION. : 
fh 

et 

® 

® 

* 

* 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: F11ACP STRUCTURE LEVEL 1 
ABSTRACT: 


THIS ROUTINE MAPS THE GIVEN ore BLOCK(S) INTO THE 
CORRESPONDING LOGICAL BLOCKS 


ENVIRONMENT : 
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MUMMIES EAI inno ponononononon 2 2 So 


: STARLET OPERATING SYSTEN, INCLUDING rie ha GED SYSTEM SERVICES 
3 AND INTERNAL EXEC ROUTINES. THIS ROUTINE MUST BE EXECUTED IN 
: KERNEL MODE. 
0 : AUTHOR: ANDREW C. GOLDSTEIN, CREATION DATE: 3-MAR-1977 11:15 
0 0 : MODIFIED BY: 
000 : v03-002 ACGO408 Andrew C. Goldstein, | 23-Mar-1984 11:00 
O80 ; Make all of global storage based 
00 : v03-001 ¢Ds0001 Christian D. Saether 9-Dec-1983 
8 3 Fix truncation error. 
00 : A0Q101 ACG0003 Andrew C. Goldstein, 8-Nov-1978 19:08 
44 3 Add multi-volume support for structure level 2 
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38 : A0100 ACcG00001 Andrew C. Goldstein, 10-Oct-1978 20:04 
Z i Previous revision history moved to FITA.REV 
ef | 
6 és ; INCLUDE FILES: 
00 65 ; . INCLUDE FCPDEF .MAR 
8 $$ 3 
00 68 ; EQUATED SYMBOLS: 
000 29 > AP OFFSETS 
00000004 0000 72 VBN = ; DESIRED VBN 
00000008 9000 8 WINDOW = i : WINDOW ADDRESS 
0000000C 000 74 COUNT = 12 ; BLOCK COUNT TO M 
00000010 0000 75 UNMAPPED= 16 : ADDRESS OF  ONGUORD TO STORE 
0000 76 : COUNT OF UNRAPP ED BLOCKS 
00000014 0000 77 ucB = 20 ; ADDRESS OF LONGWORD TO STORE 
0000 78 : RESULTING ute 
0000 80 
0000 ~=Ss«81 SWCBDEF ; DEFINE WINDOW STRUCTURE 
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FUNCTIONAL DESCRIPTION: 


THIS ROUTINE MAPS THE GIVEN VIRTUAL BLOCK(S) INTO THE 
CORRESPONDING LOGICAL BLOCKS. 


CALLING SEQUENCE: 
CALL MAP_WINDOW (ARG1, ARG2, ARG3, ARG4, ARGS) 


INPUT PARAMETERS: 
ARG]: DESIRED VBN 

ARG2: ADDRESS OF WINDOW TO USE 

ARGS: NUMBER OF BLOCKS TO MAP 
| 


IMPLICIT INPUTS: 
CURRENT_UCB CONTAINS UCB ADDRESS OF UNIT IN PROCESS 


OUTPUT PARAMETERS: 
ARG4: ADDRESS OF LONGWORD TO RECEIVE UNMAPPED COUNT | 
ARGS: ADDRESS OF LONGWORD TO RECEIVE RESULT UCB ADDRESS 

IMPLICIT OUTPUTS: 
NONE | 

ROUTINE VALUE: | 
LBN IF ANY BLOCKS MAPPED 
=1 IF NONE MAPPED 


SIDE EFFECTS: 
NONE 


SB$N3555 SSS SEDO DDO DDS 
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0000 .PSECT $CODE$,NOWRT,LONG 
MAP_WINDOW: : 
003¢ “WORD “M<R2,R3,R4,R5> : SAVE REGISTERS | 
52 08 AC DO MOVL §WINDOW(AP) ,R2 : GET WINDOW ADDRESS 
55 0000°CA 00 6 MOVL WCURRENT_UCB(R10).R5 : GET UCB ADDRESS FOR MAPPER | 
50 04 AC 00 0 10$:  MOVL  VBNC(AP),RO : GET VBN | 
51 Oc ac 09 0 ASHL #9, COUNT(AP),R1 : GET EXPLICIT COUNT 
00000000'9F 1 1 20$: JSB a# {OC $MAPVBLK : CALL SYSTEM MAPPING ROUTINE 
14BC 55 OD 1 MOVL  R5,@UCB(AP) : STORE RESULTING UCB 
E 1 BLBC RO. 408 : BRANCH IF NO MAP 


> SUCCESSFUL MAP = RETURN LBN AND COUNT OF UNMAPPED BLOCKS IF WANTED | 


MOVL 


R1,RO ; LBN TO ROUTINE VALUE 
ASHL #-§,R2, @UNMAPPED (AP) LT 


; STORE RESU 
30$: ; AND RETURN 
; WE GET HERE IF THE MAP FAILS COMPLETELY. RETURN -1 AS VALUE. 


40s: MOVL COUNT(AP) ,@UNMAPPED(AP) ; RETURN ENTIRE COUNT AS UNMAPPED 
MNEGL #1,R0 ; VALUE = -1 
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ACL_TYPE 2 7 
AQB TYPE s 5 
BITMAP_TYPE = 1 
CACHE_ TYPE = 
CHIP_TYPE = 
COUN = C 
CURRENT_UCB reeerere 
DATA_TYPE = 00 4 
DIRECTORY_TYPE > 
YPE s 
HEABDER_TYPE = 3 
INDEX, TVe = 0 
1OCSMAPVBLK ateeeere § 6X Os 
MAP _WINDOW 545444 RG 0 
MVL_TYPE = 00 4 
QUOTA_TYPE = 94 444 
RVT_TYPE = 00000 
= 00000014 
UNMAPPED = 00000010 
= 00000004 
VCB_TYPE = 00000002 
WCB TYPE = 00000001 
wIn5ow = 00000008 
paw anemone omnes = + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 <( 0.) O1¢ 41.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SCODES 00000034 ( 52.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
@usnssecsensesneenennanned 
; Performance indicators H 
Phase Page fauits CPU Time Elapsed Time 
Initialization 3 8:00:00.07 00:00:00.30 
Command processing 136 0:00: 9-93 0:00:04.44 
pees 1 nnd : 7 °: 8 bn bo 0:00:00. 26 
ymbol tabie sor :00:00. :00:00. 
Pass 2 44 :00:00.61 0:00:01. 1 
Symbol table output 4 0:00:00.01 0:00:00.04 
Psect synopsis output 3 0:00:00. 3 0:00:00.03 
Cross-reference output 0: 3: . 808309 -08 
Assembler run totals 364 0:00:02.96 0:00:12.10 


The working set Limit was 1200 pages. 
6617 bytes (15 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space ac eceres to hold 103 non-local and 4 local symbols. 
$8 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
0 pages of virtual memory were used to define 9 macros. 
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! Macro Library statistics ! 


brewer enn etme ete nese eee cand 


Macro Library name Macros defined 


Rtittant $ 8:CSYS.OBJJLI8.MLB;1 1 
5SDUA :CSYSLIB STARLET.MLB;2 3 
TOTAcs tact Libraries) 4 
139 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=L1S$:MPWIND/OBJ=OBJ$:MPWIND MSRCS$:F CPPRE/UPDATE=(ENHS:F CPPRE) +MSRC$:MPWIND/UPDATE=(ENH$:MPWIND) *EXECMLS$/LIB 
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